home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Tools / ApiHooks 2.2 / examples / VB / AUTOHOOK / ApiHooks.bas < prev    next >
Encoding:
BASIC Source File  |  2000-04-09  |  2.5 KB  |  76 lines
  1. Attribute VB_Name = "IncludeModule"
  2. Public Const HOOK_EXPORT       As Long = 1
  3. Public Const HOOK_IMPORT       As Long = 2
  4. Public Const HOOK_BY_ADDRESS   As Long = 4
  5. Public Const HOOK_HARD         As Long = 8
  6. Public Const HOOK_NO_UNBIND    As Long = 16
  7.  
  8. Public Const HOOK_EXACT        As Long = HOOK_EXPORT Or HOOK_IMPORT
  9. Public Const HOOK_ALL          As Long = HOOK_EXPORT Or HOOK_BY_ADDRESS
  10.   
  11. Public Const HOOKS_END         As Long = -1
  12. Public Const HOOKS_DYNAMIC     As Long = -2
  13.  
  14. Public Const ALL_MODULES       As Long = -1
  15.  
  16. Public Const ErrorSuccess      As Long = 0
  17. Public Const ErrorException    As Long = 1
  18. Public Const ErrorOpenProcess  As Long = 2
  19. Public Const ErrorRemoteAlloc  As Long = 3
  20. Public Const ErrorRemoteExec   As Long = 4
  21. Public Const ErrorRemoteFree   As Long = 5
  22. Public Const ErrorTimeOut      As Long = 9
  23.  
  24.  
  25. Public Type ADDRESS_CONTENTS
  26.     ReturnWhere As Long
  27.     ReturnWhat  As Long
  28. End Type
  29.  
  30. Public Type API_UNHOOK
  31.     MaxNoAddr   As Long
  32.     CurNoAddr   As Long
  33.     WhereWhat() As ADDRESS_CONTENTS
  34. End Type
  35.  
  36. Public Declare Function IsModuleLoaded Lib "ApiHooks.dll" _
  37.     Alias "IsModuleLoadedA" _
  38.     (ByVal lpszDll As String, ByVal lProcessID As Long _
  39.     ) As Long
  40.  
  41. Public Declare Function LoadAndCall Lib "ApiHooks.dll" _
  42.     Alias "LoadAndCallA" _
  43.     (ByVal lpszDll As String, ByVal lProcessID As Long, _
  44.     ByVal HowManyTimes As Long, ByVal ApiNameOrOrd As Any _ 
  45.     ) As Long
  46.  
  47. Public Declare Function UnloadModule Lib "ApiHooks.dll" _
  48.     Alias "UnloadModuleA" _
  49.     (ByVal lpszDll As String, ByVal lProcessID As Long, _
  50.     ByVal HowManyTimes As Long) As Long
  51.  
  52. Public Declare Function HookApi Lib "ApiHooks.dll" _
  53.     Alias "HookApiA" ( _
  54.     ByVal ExportModule As Any, _
  55.     ByVal ApiNameOrOrd As Any, _
  56.     ByVal dwFlags As Long, _
  57.     ByVal ImportModule As Any, _
  58.     UnhookAddresses As Any, _
  59.     ByVal HookAddress As Long, _
  60.     ByRef ExcludeModules As Any _
  61.     ) As Long
  62.  
  63. Public Declare Function EstablishApiHooks Lib "ApiHooks.dll" _
  64.     Alias "EstablishApiHooksA" _
  65.    (ByVal lpszDll As String, ByVal lProcessID As Long) As Long
  66.  
  67. Public Declare Function EstablishApiHooksTime Lib "ApiHooks.dll" _
  68.     Alias "EstablishApiHooksTimeA" _
  69.    (ByVal lpszDll As String, ByVal lProcessID As Long, _
  70.     ByVal dwMilliseconds As Long) As Long
  71.  
  72. Public Declare Function EstablishApiHooksTimeNT Lib "ApiHooks.dll" _
  73.     Alias "EstablishApiHooksTimeNTA" _
  74.    (ByVal lpszDll As String, ByVal lProcessID As Long, _
  75.     ByVal dwMilliseconds As Long) As Long
  76.